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PROGRAM 
Single Precision Binary to ASCII Octal 

TAPES 
ASCII Source; G90-000032 

ABSTiJ^CT 

This routine converts a 16-bit binary number to a string of 
ASCII characters representing the octal equivalent of the 
binary value „ 
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3- . R1QUJ.REMSNTS 

IK or larger alterable memory 

NOVA central processor 

1 . 3 External Subrou tines 

A user supplied subroutine for accepting the ASCII 
output characters (see 2.3) 

1.4 Other 
None 

2. OPERATING PROCEDURE 
2.1 Calling Sequence 

JSR .BINO 

return 

2 . 2 ln_2ut_ Format 

A 16-bit binary number is passed in ACl . 
2.3 Output Format 

The output is an ASCII character string of the form; 

000000 (null) . 

The "O's" represent the ASCII octal characters. The 
user must provide a routine that accepts these out- 
put characters. The address of this routine must be 
stored in location 41 of page zero. The characters 
will be passed, one at a time, right adjusted (bit 8 
= 0) in AC0. Seven characters will be passed? most 
significant digit, . . ., least significant digit, 
null (all zero) . The user routine need not save any 
register (except AC3 if used) or Carry. Return should 
be made by a JMP 0,3. 



-3- 

2 • 4 Egxor _Rg t u rn s 

None 
2-5 f.'^ - : — cf Acty* :_R^ r ; i c " ■;, ■■:':• upon, rxit 

AC 2 remains unchanged. AC0, ACl, AC3» and Carry are 
destroyed, 

2 .6 Cautions to User 

None 

3.1 Algorithms 

The principle of this routine is to determine the 
octal digits by successively subtracting the appropriate 
power of eight from the original value until the re- 
sult is negative. Each subtraction that gives a re- 
sult greater than or equal to zero causes octal 60 
(ASCII 0) to ba incremented. When the result becomes 
negative, its previous value is restored, the ASCII 
digit is passed to the user, and the next lower power 
of eight is subtracted. After 8**0 is used, the con- 
version is complete. Since the original value is 
16-bits, the largest power of eight that can be con- 
tained is 8**5 (2**15), Therefore the conversion 
begins using this value. 

3 - 2 L iirit-'.ti cn s a;- i1. .^cc^jjcv 

The routine is exact for all 16-bit binary numbers. 
3.3 Size and Timing 

The routine is 27 (octal) words in length. 

Execution time is 

367.6 + N * 20.0 JA seconds, 

where N is the sum of the digits of the result (the 
sura expressed in decimal) . For example, if the re- 
sult is 176507, execution time is 

367.6 + (1+7+6+5+0+7) * 20.0 = 887.6 ^U seconds. 
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3.4 References 
None 

3.5 Flow Diagrams. 
None 

4, EXAMPLES AND AP PLICATIONS 

The ASCII source of binary to octal convert is provided 
with the NOVA software. If a user routine requires .BIKO, 
this tape should be edited into the user's source. 

5. PROGRAM LISTING 

A listing of .BIBO follows. No origin is given in the 
source, enabling the tape to be edited anywhere within 
a user routine. 



CTAL A -"l' 5 " 0QNVE0T 



I OUTPUT: 

1 
I 
1 
I 



A "-> w 1 . •:• '-.A < AC T E K S r K I N G * T E H M 1 N A F£ O BY 

MULL CrtAKAOIEP 

CPAKAC TEMP PASSED HIGHT AO JUS TEL) IN Ai 

TO THE OSEK KOOT1NE WHOSE ADDRESS 

;-.■ *-e ./.;••?*?.•; :\ J 2.ooa-:p\ 01 jp page 



SI PING Ui* / U 



'PESENT OCfAL DIGITS 



J CALLING SEQUENCE: 
I J ore *-:.>'■ J 

3 PEPOPN 



I OEStKOlfEOt 
1 UNCHANGED: 



AC O * A C J # AC 3 * C A H Y 

AC 2 



00008 054024 »BINO 

000 01 050023 

00002 :t>26Hl 

00003 14 6401 .EF99 

00004 020026 .EF98 
0000b 101400 
00006 14 6533 
00037 0530803 

063010 050025 



0001 ! 


i'4 fJl £. (A A t 


000 ! 2 


030025 


00013 


i SO 220 


80014 


1SO220 


000 I 5 


1 51224 


0,00 1 6 


000004 


000 1 7 


141000 


00020 


00604 1 


00021 


030023 


00022 


002024 



01* A 3*.EFS33 

SfA 2j»»EP02 
SOPEP 2»2jtSi 
SOB 2 j» 1*00,0 
LOA 0#.£P2O 
1 NO * 
SOBEL# 2 # I j» • 
UNP . EP9 9 

Si A id? »z. *";•;. 

JSP §»EP4T 
_OA 2* *» EP I 

1O\/0K 2*2 

MOVEK 2j2 
00 v >i '< .* 2 .•» S 
J MP #EP?r' 
rtO V 2^0 

JSK § • EP40 
LOA 2,«EP02 
UPtP SUEP03 



I PAVE HE f 00.0 

S *£AV/£ AC 2 

I 100003 TO AC 2 

I PC C PE A 5 E C PEN! DIGIT B Y 1 

; GET OCTAL 5? 

5 F00M ASCII OUTPUT 01 GIT 

I - IMPLIES DIGIT COMPLETE 

s NOf 0ONE* SU8TKACT 1 P0OM 

i GOPPENT DIGIT 

? SAVE SO8I20AOT CONSTANT 

i P0f OUT A DIGIT 

5 PEE f OPE SOBi'PACT CONSTANT 

J POSITION f, l" FOP NEXT OCTAL 

5 01 GIT 



I NOT CONE 

I PUT 001* NOLL CHAP AC TEH 

J *K£STOKE AC2 

I PETUPN 



00023 000000 »Ef02s 

00024 000000 .EF03: 

00025 000000 .EFI0S 



J *0A\/E AC2 

I SAME KET0PN 

I SAOE LOCATION POP SUBTKACT 

1 CONSTANT 



00020 000037 »EP20t 57 
00004 1 »EF40=4I 



I P.00 II CONSTANT 

J PAGE EEKO A00PESS OF POT 
1 CHAKACTEK A000ESS 



